library(tidyverse)

read_csv("data/raw/chronic_racial_threat_lucid.csv") |>
   filter(Consent == 1) |>
  select (-(StartDate:Consent)) |>
  write_csv("data/raw/chronic_racial_threat_lucid_anonymized.csv")
  